home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / toolkit / db2stff / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-03-21  |  25.6 KB  |  752 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "DBPush v1.9 Demo"
  5.    ClientHeight    =   5100
  6.    ClientLeft      =   1260
  7.    ClientTop       =   1995
  8.    ClientWidth     =   7980
  9.    ClipControls    =   0   'False
  10.    Height          =   5505
  11.    Left            =   1200
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   5100
  14.    ScaleWidth      =   7980
  15.    Top             =   1650
  16.    Width           =   8100
  17.    Begin DBPush DBPush2 
  18.       Alignment       =   2  'Center
  19.       AutoPictureDisabled=   0  'Off
  20.       BackColor       =   &H00C0C0C0&
  21.       BackColorDown   =   &H00C0C0C0&
  22.       BevelWidth      =   2
  23.       Caption         =   "Autodisable demo"
  24.       CornerColor     =   &H00000000&
  25.       FocusRect       =   -1  'True
  26.       Font3D          =   0  'None
  27.       Font3DDisabled  =   0  'None
  28.       ForceDown       =   0   'False
  29.       ForceUp         =   0   'False
  30.       ForeColorDisabled=   &H00000000&
  31.       Height          =   735
  32.       Left            =   3960
  33.       Outline         =   -1  'True
  34.       OutlineSize     =   1
  35.       Picture         =   FORM1.FRX:0000
  36.       PictureFromEdge =   0
  37.       Placement       =   1  'Text right of picture
  38.       PredefPicture   =   0  'None
  39.       Style           =   0  'Normal
  40.       TabIndex        =   21
  41.       Top             =   3240
  42.       TransColor      =   &H00000000&
  43.       Transparent     =   0   'False
  44.       VertAlignment   =   2  'Center
  45.       Width           =   1815
  46.    End
  47.    Begin DBPush DBPush1 
  48.       Alignment       =   2  'Center
  49.       AutoPictureDisabled=   0  'Off
  50.       BackColor       =   &H00C0C0C0&
  51.       BackColorDown   =   &H00E0E0E0&
  52.       BevelWidth      =   2
  53.       Caption         =   "Yellow"
  54.       CornerColor     =   &H00000000&
  55.       FocusRect       =   -1  'True
  56.       Font3D          =   0  'None
  57.       Font3DDisabled  =   0  'None
  58.       ForceDown       =   0   'False
  59.       ForceUp         =   0   'False
  60.       ForeColorDisabled=   &H00000000&
  61.       Height          =   315
  62.       Index           =   3
  63.       Left            =   2820
  64.       Outline         =   -1  'True
  65.       OutlineSize     =   1
  66.       PictureFromEdge =   0
  67.       Placement       =   0  'Text below picture
  68.       PredefPicture   =   0  'None
  69.       Style           =   0  'Normal
  70.       TabIndex        =   20
  71.       Top             =   4320
  72.       TransColor      =   &H00000000&
  73.       Transparent     =   0   'False
  74.       VertAlignment   =   2  'Center
  75.       Width           =   855
  76.    End
  77.    Begin DBPush DBPush1 
  78.       Alignment       =   2  'Center
  79.       AutoPictureDisabled=   0  'Off
  80.       BackColor       =   &H00C0C0C0&
  81.       BackColorDown   =   &H00E0E0E0&
  82.       BevelWidth      =   2
  83.       Caption         =   "White"
  84.       CornerColor     =   &H00000000&
  85.       FocusRect       =   -1  'True
  86.       Font3D          =   0  'None
  87.       Font3DDisabled  =   0  'None
  88.       ForceDown       =   0   'False
  89.       ForceUp         =   0   'False
  90.       ForeColorDisabled=   &H00000000&
  91.       Height          =   315
  92.       Index           =   2
  93.       Left            =   2820
  94.       Outline         =   -1  'True
  95.       OutlineSize     =   1
  96.       PictureFromEdge =   0
  97.       Placement       =   0  'Text below picture
  98.       PredefPicture   =   0  'None
  99.       Style           =   0  'Normal
  100.       TabIndex        =   19
  101.       Top             =   3960
  102.       TransColor      =   &H00000000&
  103.       Transparent     =   0   'False
  104.       VertAlignment   =   2  'Center
  105.       Width           =   855
  106.    End
  107.    Begin DBPush DBPush1 
  108.       Alignment       =   2  'Center
  109.       AutoPictureDisabled=   0  'Off
  110.       BackColor       =   &H00C0C0C0&
  111.       BackColorDown   =   &H00E0E0E0&
  112.       BevelWidth      =   2
  113.       Caption         =   "Black"
  114.       CornerColor     =   &H00000000&
  115.       FocusRect       =   -1  'True
  116.       Font3D          =   0  'None
  117.       Font3DDisabled  =   0  'None
  118.       ForceDown       =   0   'False
  119.       ForceUp         =   0   'False
  120.       ForeColorDisabled=   &H00000000&
  121.       Height          =   315
  122.       Index           =   1
  123.       Left            =   2820
  124.       Outline         =   -1  'True
  125.       OutlineSize     =   1
  126.       PictureFromEdge =   0
  127.       Placement       =   0  'Text below picture
  128.       PredefPicture   =   0  'None
  129.       Style           =   0  'Normal
  130.       TabIndex        =   18
  131.       Top             =   3600
  132.       TransColor      =   &H00000000&
  133.       Transparent     =   0   'False
  134.       VertAlignment   =   2  'Center
  135.       Width           =   855
  136.    End
  137.    Begin DBPush DBPush13 
  138.       Alignment       =   2  'Center
  139.       AutoPictureDisabled=   7  'All contours Inset (thin)
  140.       BackColor       =   &H00C0C0C0&
  141.       BackColorDown   =   &H00E0E0E0&
  142.       BevelWidth      =   2
  143.       Caption         =   "Transparent picture demo"
  144.       CornerColor     =   &H00000000&
  145.       FocusRect       =   -1  'True
  146.       Font3D          =   0  'None
  147.       Font3DDisabled  =   0  'None
  148.       ForceDown       =   0   'False
  149.       ForceUp         =   0   'False
  150.       ForeColorDisabled=   &H00000000&
  151.       Height          =   1575
  152.       Left            =   240
  153.       Outline         =   -1  'True
  154.       OutlineSize     =   1
  155.       Picture         =   FORM1.FRX:0302
  156.       PictureFromEdge =   0
  157.       Placement       =   0  'Text below picture
  158.       PredefPicture   =   0  'None
  159.       Style           =   0  'Normal
  160.       TabIndex        =   13
  161.       Top             =   3180
  162.       TransColor      =   &H0000FFFF&
  163.       Transparent     =   0   'False
  164.       VertAlignment   =   2  'Center
  165.       Width           =   2475
  166.    End
  167.    Begin DBPush cmdHelp 
  168.       Alignment       =   2  'Center
  169.       AutoPictureDisabled=   0  'Off
  170.       BackColor       =   &H00C0C0C0&
  171.       BackColorDown   =   &H00C0C0C0&
  172.       BevelWidth      =   2
  173.       Caption         =   "Help"
  174.       CornerColor     =   &H00C0C0C0&
  175.       FocusRect       =   -1  'True
  176.       Font3D          =   0  'None
  177.       Font3DDisabled  =   0  'None
  178.       ForceDown       =   0   'False
  179.       ForceUp         =   0   'False
  180.       ForeColorDisabled=   &H00000000&
  181.       Height          =   492
  182.       Left            =   4740
  183.       Outline         =   -1  'True
  184.       OutlineSize     =   1
  185.       PictureFromEdge =   0
  186.       Placement       =   1  'Text right of picture
  187.       PredefPicture   =   3  'Help
  188.       Style           =   0  'Normal
  189.       TabIndex        =   15
  190.       Top             =   4380
  191.       TransColor      =   &H00000000&
  192.       Transparent     =   0   'False
  193.       VertAlignment   =   2  'Center
  194.       Width           =   1392
  195.    End
  196.    Begin DBPush DBPush1 
  197.       Alignment       =   2  'Center
  198.       AutoPictureDisabled=   0  'Off
  199.       BackColor       =   &H00C0C0C0&
  200.       BackColorDown   =   &H00E0E0E0&
  201.       BevelWidth      =   2
  202.       Caption         =   "None"
  203.       CornerColor     =   &H00000000&
  204.       FocusRect       =   -1  'True
  205.       Font3D          =   0  'None
  206.       Font3DDisabled  =   0  'None
  207.       ForceDown       =   -1  'True
  208.       ForceUp         =   0   'False
  209.       ForeColorDisabled=   &H00000000&
  210.       Height          =   315
  211.       Index           =   0
  212.       Left            =   2820
  213.       Outline         =   -1  'True
  214.       OutlineSize     =   1
  215.       PictureFromEdge =   0
  216.       Placement       =   0  'Text below picture
  217.       PredefPicture   =   0  'None
  218.       Style           =   0  'Normal
  219.       TabIndex        =   14
  220.       Top             =   3240
  221.       TransColor      =   &H00000000&
  222.       Transparent     =   0   'False
  223.       VertAlignment   =   2  'Center
  224.       Width           =   855
  225.    End
  226.    Begin DBPush DBPush33 
  227.       Alignment       =   2  'Center
  228.       AutoPictureDisabled=   0  'Off
  229.       BackColor       =   &H00C0C0C0&
  230.       BackColorDown   =   &H00C0C0C0&
  231.       BevelWidth      =   1
  232.       Caption         =   "Even this panel||is a DBPush!"
  233.       CornerColor     =   &H00000000&
  234.       FocusRect       =   0   'False
  235.       Font3D          =   3  'Inset w/light shading
  236.       Font3DDisabled  =   0  'None
  237.       ForceDown       =   -1  'True
  238.       ForceUp         =   0   'False
  239.       ForeColor       =   &H00FF0000&
  240.       ForeColorDisabled=   &H00000000&
  241.       Height          =   915
  242.       Left            =   5940
  243.       Outline         =   0   'False
  244.       OutlineSize     =   0
  245.       PictureFromEdge =   0
  246.       Placement       =   0  'Text below picture
  247.       PredefPicture   =   0  'None
  248.       Style           =   1  'Sink deep
  249.       TabIndex        =   17
  250.       TabStop         =   0   'False
  251.       Top             =   3240
  252.       TransColor      =   &H00000000&
  253.       Transparent     =   0   'False
  254.       VertAlignment   =   2  'Center
  255.       Width           =   1815
  256.    End
  257.    Begin DBPush DBPush320 
  258.       Alignment       =   2  'Center
  259.       AutoPictureDisabled=   0  'Off
  260.       BackColor       =   &H00C0C0C0&
  261.       BackColorDown   =   &H00E0E0E0&
  262.       BevelWidth      =   2
  263.       Caption         =   "Next"
  264.       CornerColor     =   &H00000000&
  265.       FocusRect       =   0   'False
  266.       Font3D          =   0  'None
  267.       Font3DDisabled  =   0  'None
  268.       ForceDown       =   0   'False
  269.       ForceUp         =   0   'False
  270.       ForeColorDisabled=   &H00000000&
  271.       Height          =   252
  272.       Left            =   5520
  273.       Outline         =   -1  'True
  274.       OutlineSize     =   1
  275.       PictureFromEdge =   0
  276.       Placement       =   0  'Text below picture
  277.       PredefPicture   =   0  'None
  278.       Style           =   0  'Normal
  279.       TabIndex        =   11
  280.       Top             =   2760
  281.       TransColor      =   &H00000000&
  282.       Transparent     =   0   'False
  283.       VertAlignment   =   2  'Center
  284.       Width           =   1032
  285.    End
  286.    Begin DBPush DBPush321 
  287.       Alignment       =   2  'Center
  288.       AutoPictureDisabled=   0  'Off
  289.       BackColor       =   &H00C0C0C0&
  290.       BackColorDown   =   &H00E0E0E0&
  291.       BevelWidth      =   2
  292.       Caption         =   "Disable"
  293.       CornerColor     =   &H00000000&
  294.       FocusRect       =   0   'False
  295.       Font3D          =   0  'None
  296.       Font3DDisabled  =   0  'None
  297.       ForceDown       =   0   'False
  298.       ForceUp         =   0   'False
  299.       ForeColorDisabled=   &H00000000&
  300.       Height          =   252
  301.       Left            =   6720
  302.       Outline         =   -1  'True
  303.       OutlineSize     =   1
  304.       PictureFromEdge =   0
  305.       Placement       =   0  'Text below picture
  306.       PredefPicture   =   0  'None
  307.       Style           =   0  'Normal
  308.       TabIndex        =   12
  309.       Top             =   2760
  310.       TransColor      =   &H00000000&
  311.       Transparent     =   0   'False
  312.       VertAlignment   =   2  'Center
  313.       Width           =   1032
  314.    End
  315.    Begin DBPush cmdExit 
  316.       Alignment       =   2  'Center
  317.       AutoPictureDisabled=   0  'Off
  318.       BackColor       =   &H00C0C0C0&
  319.       BackColorDown   =   &H00C0C0C0&
  320.       BevelWidth      =   2
  321.       Caption         =   "Exit"
  322.       CornerColor     =   &H00C0C0C0&
  323.       FocusRect       =   -1  'True
  324.       Font3D          =   0  'None
  325.       Font3DDisabled  =   0  'None
  326.       ForceDown       =   0   'False
  327.       ForceUp         =   0   'False
  328.       ForeColorDisabled=   &H00000000&
  329.       Height          =   492
  330.       Left            =   6240
  331.       Outline         =   -1  'True
  332.       OutlineSize     =   1
  333.       PictureFromEdge =   0
  334.       Placement       =   1  'Text right of picture
  335.       PredefPicture   =   2  'Cancel
  336.       Style           =   0  'Normal
  337.       TabIndex        =   16
  338.       Top             =   4380
  339.       TransColor      =   &H00000000&
  340.       Transparent     =   0   'False
  341.       VertAlignment   =   2  'Center
  342.       Width           =   1392
  343.    End
  344.    Begin DBPush DBPush223 
  345.       Alignment       =   2  'Center
  346.       AutoPictureDisabled=   0  'Off
  347.       BackColor       =   &H00C0C0C0&
  348.       BackColorDown   =   &H00E0E0E0&
  349.       BevelWidth      =   2
  350.       Caption         =   "Bevel"
  351.       CornerColor     =   &H00000000&
  352.       FocusRect       =   0   'False
  353.       Font3D          =   0  'None
  354.       Font3DDisabled  =   0  'None
  355.       ForceDown       =   0   'False
  356.       ForceUp         =   0   'False
  357.       ForeColorDisabled=   &H00000000&
  358.       Height          =   252
  359.       Left            =   4140
  360.       Outline         =   -1  'True
  361.       OutlineSize     =   1
  362.       PictureFromEdge =   0
  363.       Placement       =   0  'Text below picture
  364.       PredefPicture   =   0  'None
  365.       Style           =   0  'Normal
  366.       TabIndex        =   9
  367.       Top             =   2760
  368.       TransColor      =   &H00000000&
  369.       Transparent     =   0   'False
  370.       VertAlignment   =   2  'Center
  371.       Width           =   1092
  372.    End
  373.    Begin DBPush DBPush222 
  374.       Alignment       =   2  'Center
  375.       AutoPictureDisabled=   0  'Off
  376.       BackColor       =   &H00C0C0C0&
  377.       BackColorDown   =   &H00E0E0E0&
  378.       BevelWidth      =   2
  379.       Caption         =   "Outline"
  380.       CornerColor     =   &H00000000&
  381.       FocusRect       =   0   'False
  382.       Font3D          =   0  'None
  383.       Font3DDisabled  =   0  'None
  384.       ForceDown       =   0   'False
  385.       ForceUp         =   0   'False
  386.       ForeColorDisabled=   &H00000000&
  387.       Height          =   252
  388.       Left            =   2940
  389.       Outline         =   -1  'True
  390.       OutlineSize     =   1
  391.       PictureFromEdge =   0
  392.       Placement       =   0  'Text below picture
  393.       PredefPicture   =   0  'None
  394.       Style           =   0  'Normal
  395.       TabIndex        =   8
  396.       Top             =   2760
  397.       TransColor      =   &H00000000&
  398.       Transparent     =   0   'False
  399.       VertAlignment   =   2  'Center
  400.       Width           =   1092
  401.    End
  402.    Begin DBPush DBPush221 
  403.       Alignment       =   2  'Center
  404.       AutoPictureDisabled=   0  'Off
  405.       BackColor       =   &H00C0C0C0&
  406.       BackColorDown   =   &H00E0E0E0&
  407.       BevelWidth      =   2
  408.       Caption         =   "Sink deep"
  409.       CornerColor     =   &H00000000&
  410.       FocusRect       =   0   'False
  411.       Font3D          =   0  'None
  412.       Font3DDisabled  =   0  'None
  413.       ForceDown       =   0   'False
  414.       ForceUp         =   0   'False
  415.       ForeColorDisabled=   &H00000000&
  416.       Height          =   252
  417.       Left            =   4140
  418.       Outline         =   -1  'True
  419.       OutlineSize     =   1
  420.       PictureFromEdge =   0
  421.       Placement       =   0  'Text below picture
  422.       PredefPicture   =   0  'None
  423.       Style           =   0  'Normal
  424.       TabIndex        =   7
  425.       Top             =   2460
  426.       TransColor      =   &H00000000&
  427.       Transparent     =   0   'False
  428.       VertAlignment   =   2  'Center
  429.       Width           =   1092
  430.    End
  431.    Begin DBPush DBPush220 
  432.       Alignment       =   2  'Center
  433.       AutoPictureDisabled=   0  'Off
  434.       BackColor       =   &H00C0C0C0&
  435.       BackColorDown   =   &H00E0E0E0&
  436.       BevelWidth      =   2
  437.       Caption         =   "Ellipse"
  438.       CornerColor     =   &H00000000&
  439.       FocusRect       =   0   'False
  440.       Font3D          =   0  'None
  441.       Font3DDisabled  =   0  'None
  442.       ForceDown       =   0   'False
  443.       ForceUp         =   0   'False
  444.       ForeColorDisabled=   &H00000000&
  445.       Height          =   252
  446.       Left            =   2940
  447.       Outline         =   -1  'True
  448.       OutlineSize     =   1
  449.       PictureFromEdge =   0
  450.       Placement       =   0  'Text below picture
  451.       PredefPicture   =   0  'None
  452.       Style           =   0  'Normal
  453.       TabIndex        =   6
  454.       Top             =   2460
  455.       TransColor      =   &H00000000&
  456.       Transparent     =   0   'False
  457.       VertAlignment   =   2  'Center
  458.       Width           =   1092
  459.    End
  460.    Begin DBPush DBPush110 
  461.       Alignment       =   2  'Center
  462.       AutoPictureDisabled=   0  'Off
  463.       BackColor       =   &H00C0C0C0&
  464.       BackColorDown   =   &H00E0E0E0&
  465.       BevelWidth      =   2
  466.       Caption         =   "Disable"
  467.       CornerColor     =   &H00000000&
  468.       FocusRect       =   0   'False
  469.       Font3D          =   0  'None
  470.       Font3DDisabled  =   0  'None
  471.       ForceDown       =   0   'False
  472.       ForceUp         =   0   'False
  473.       ForeColorDisabled=   &H00000000&
  474.       Height          =   252
  475.       Left            =   900
  476.       Outline         =   -1  'True
  477.       OutlineSize     =   1
  478.       PictureFromEdge =   0
  479.       Placement       =   0  'Text below picture
  480.       PredefPicture   =   0  'None
  481.       Style           =   0  'Normal
  482.       TabIndex        =   1
  483.       Top             =   1320
  484.       TransColor      =   &H00000000&
  485.       Transparent     =   0   'False
  486.       VertAlignment   =   2  'Center
  487.       Width           =   1152
  488.    End
  489.    Begin DBPush DBPush12 
  490.       Alignment       =   2  'Center
  491.       AutoPictureDisabled=   0  'Off
  492.       BackColor       =   &H00C0C0C0&
  493.       BackColorDown   =   &H00C0C0C0&
  494.       BevelWidth      =   2
  495.       Caption         =   "Alignment demo"
  496.       CornerColor     =   &H00000000&
  497.       FocusRect       =   -1  'True
  498.       Font3D          =   0  'None
  499.       Font3DDisabled  =   0  'None
  500.       ForceDown       =   0   'False
  501.       ForceUp         =   0   'False
  502.       ForeColorDisabled=   &H00000000&
  503.       Height          =   1335
  504.       Left            =   240
  505.       Outline         =   -1  'True
  506.       OutlineSize     =   1
  507.       PictureFromEdge =   0
  508.       Placement       =   0  'Text below picture
  509.       PredefPicture   =   0  'None
  510.       Style           =   0  'Normal
  511.       TabIndex        =   4
  512.       Top             =   1680
  513.       TransColor      =   &H00000000&
  514.       Transparent     =   0   'False
  515.       VertAlignment   =   2  'Center
  516.       Width           =   2475
  517.    End
  518.    Begin DBPush DBPush21 
  519.       Alignment       =   2  'Center
  520.       AutoPictureDisabled=   0  'Off
  521.       BackColor       =   &H00C0C0C0&
  522.       BackColorDown   =   &H00C0C0C0&
  523.       BevelWidth      =   2
  524.       Caption         =   "Different picture when depressed"
  525.       CornerColor     =   &H00000000&
  526.       FocusRect       =   -1  'True
  527.       Font3D          =   0  'None
  528.       Font3DDisabled  =   0  'None
  529.       ForceDown       =   0   'False
  530.       ForceUp         =   0   'False
  531.       ForeColorDisabled=   &H00000000&
  532.       Height          =   1395
  533.       Left            =   2820
  534.       Outline         =   -1  'True
  535.       OutlineSize     =   1
  536.       Picture         =   FORM1.FRX:0D9C
  537.       PictureDown     =   FORM1.FRX:109E
  538.       PictureFromEdge =   0
  539.       Placement       =   0  'Text below picture
  540.       PredefPicture   =   0  'None
  541.       Style           =   0  'Normal
  542.       TabIndex        =   2
  543.       Top             =   180
  544.       TransColor      =   &H00000000&
  545.       Transparent     =   0   'False
  546.       VertAlignment   =   2  'Center
  547.       Width           =   2475
  548.    End
  549.    Begin DBPush DBPush22 
  550.       Alignment       =   2  'Center
  551.       AutoPictureDisabled=   0  'Off
  552.       BackColor       =   &H00C0C0C0&
  553.       BackColorDown   =   &H00C0C0C0&
  554.       BevelWidth      =   2
  555.       Caption         =   "Style demo"
  556.       CornerColor     =   &H00C0C0C0&
  557.       FocusRect       =   -1  'True
  558.       Font3D          =   0  'None
  559.       Font3DDisabled  =   0  'None
  560.       ForceDown       =   0   'False
  561.       ForceUp         =   0   'False
  562.       ForeColorDisabled=   &H00000000&
  563.       Height          =   732
  564.       Left            =   2820
  565.       Outline         =   0   'False
  566.       OutlineSize     =   0
  567.       PictureFromEdge =   0
  568.       Placement       =   0  'Text below picture
  569.       PredefPicture   =   0  'None
  570.       Style           =   0  'Normal
  571.       TabIndex        =   5
  572.       Top             =   1680
  573.       TransColor      =   &H00000000&
  574.       Transparent     =   0   'False
  575.       VertAlignment   =   2  'Center
  576.       Width           =   2472
  577.    End
  578.    Begin DBPush DBPush31 
  579.       Alignment       =   2  'Center
  580.       AutoPictureDisabled=   0  'Off
  581.       BackColor       =   &H00C0C0C0&
  582.       BackColorDown   =   &H00C0C0C0&
  583.       BevelWidth      =   2
  584.       Caption         =   "Custom cursor demo"
  585.       CornerColor     =   &H00000000&
  586.       CustomCursor    =   FORM1.FRX:13A0
  587.       FocusRect       =   -1  'True
  588.       Font3D          =   2  'Raised w/heavy shading
  589.       Font3DDisabled  =   0  'None
  590.       FontBold        =   -1  'True
  591.       FontItalic      =   0   'False
  592.       FontName        =   "MS Sans Serif"
  593.       FontSize        =   13.5
  594.       FontStrikethru  =   0   'False
  595.       FontUnderline   =   0   'False
  596.       ForceDown       =   0   'False
  597.       ForceUp         =   0   'False
  598.       ForeColorDisabled=   &H00000000&
  599.       Height          =   1395
  600.       Left            =   5400
  601.       Outline         =   -1  'True
  602.       OutlineSize     =   1
  603.       PictureFromEdge =   0
  604.       Placement       =   0  'Text below picture
  605.       PredefPicture   =   0  'None
  606.       Style           =   0  'Normal
  607.       TabIndex        =   3
  608.       Top             =   180
  609.       TransColor      =   &H00000000&
  610.       Transparent     =   0   'False
  611.       VertAlignment   =   2  'Center
  612.       Width           =   2475
  613.    End
  614.    Begin DBPush DBPush32 
  615.       Alignment       =   2  'Center
  616.       AutoPictureDisabled=   0  'Off
  617.       BackColor       =   &H00C0C0C0&
  618.       BackColorDown   =   &H00C0C0C0&
  619.       BevelWidth      =   2
  620.       Caption         =   "Predefined picture demo"
  621.       CornerColor     =   &H00000000&
  622.       FocusRect       =   -1  'True
  623.       Font3D          =   0  'None
  624.       Font3DDisabled  =   3  'Inset w/light shading
  625.       ForceDown       =   0   'False
  626.       ForceUp         =   0   'False
  627.       ForeColorDisabled=   &H00808080&
  628.       Height          =   1032
  629.       Left            =   5400
  630.       Outline         =   -1  'True
  631.       OutlineSize     =   1
  632.       PictureFromEdge =   0
  633.       Placement       =   1  'Text right of picture
  634.       PredefPicture   =   1  'OK
  635.       Style           =   0  'Normal
  636.       TabIndex        =   10
  637.       Top             =   1680
  638.       TransColor      =   &H00000000&
  639.       Transparent     =   0   'False
  640.       VertAlignment   =   2  'Center
  641.       Width           =   2472
  642.    End
  643.    Begin DBPush DBPush11 
  644.       Alignment       =   2  'Center
  645.       AutoPictureDisabled=   0  'Off
  646.       BackColor       =   &H00C0C0C0&
  647.       BackColorDown   =   &H00C0C0C0&
  648.       BevelWidth      =   2
  649.       Caption         =   "Placement demo"
  650.       CornerColor     =   &H00000000&
  651.       FocusRect       =   -1  'True
  652.       Font3D          =   0  'None
  653.       Font3DDisabled  =   3  'Inset w/light shading
  654.       ForceDown       =   0   'False
  655.       ForceUp         =   0   'False
  656.       ForeColorDisabled=   &H00808080&
  657.       Height          =   1095
  658.       Left            =   240
  659.       Outline         =   -1  'True
  660.       OutlineSize     =   1
  661.       Picture         =   FORM1.FRX:16A2
  662.       PictureDisabled =   FORM1.FRX:19A4
  663.       PictureFromEdge =   0
  664.       Placement       =   0  'Text below picture
  665.       PredefPicture   =   0  'None
  666.       Style           =   0  'Normal
  667.       TabIndex        =   0
  668.       Top             =   180
  669.       TransColor      =   &H00000000&
  670.       Transparent     =   0   'False
  671.       VertAlignment   =   2  'Center
  672.       Width           =   2475
  673.    End
  674. Option Explicit
  675. Dim nCurrentButtonDown As Integer
  676. Sub cmdExit_Click ()
  677.   End
  678. End Sub
  679. Sub cmdHelp_Click ()
  680.   Dim S As String
  681.   S = "DBPush is an enhanced 3D command button control. Most "
  682.   S = S + "of its features my be tried out in this demo. For a "
  683.   S = S + "complete description, please refer to the document "
  684.   S = S + """DBPUSH.WRI.""" + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10)
  685.   S = S + "DBPush was written by Dan Bystr
  686. m." + Chr$(13) + Chr$(10)
  687.   S = S + "e-mail: ""dan.bystrom@adb-partner.it-invest.se"""
  688.   MsgBox S, 0, "About DBPush"
  689. End Sub
  690. Sub DBPush1_Click (Index As Integer)
  691.   DBPush1(nCurrentButtonDown).ForceDown = False
  692.   DBPush1(Index).ForceDown = True
  693.   nCurrentButtonDown = Index
  694.   Select Case nCurrentButtonDown
  695.     Case 0:
  696.       DBPush13.Transparent = False
  697.     Case 1:
  698.       DBPush13.Transparent = True
  699.       DBPush13.TransColor = &HFFFFFF
  700.     Case 2:
  701.       DBPush13.Transparent = True
  702.       DBPush13.TransColor = 0
  703.     Case 3:
  704.       DBPush13.Transparent = True
  705.       DBPush13.TransColor = &HFFFF&
  706.   End Select
  707. End Sub
  708. Sub DBPush11_Click ()
  709.   DBPush11.Placement = (DBPush11.Placement + 1) Mod 5
  710.   Select Case DBPush11.Placement
  711.     Case 0: DBPush11.Caption = "Picture above text"
  712.     Case 1: DBPush11.Caption = "Picture left of text"
  713.     Case 2: DBPush11.Caption = "Picture below text"
  714.     Case 3: DBPush11.Caption = "Picture right of text"
  715.     Case 4: DBPush11.Caption = "Text on top of picture"
  716.   End Select
  717. End Sub
  718. Sub DBPush110_Click ()
  719.   DBPush11.Enabled = DBPush110.ForceDown
  720.   DBPush110.ForceDown = Not DBPush110.ForceDown
  721. End Sub
  722. Sub DBPush12_Click ()
  723.   DBPush12.Alignment = (DBPush12.Alignment + 1) Mod 3
  724.   If DBPush12.Alignment = 0 Then
  725.     DBPush12.VertAlignment = (DBPush12.VertAlignment + 1) Mod 3
  726.   End If
  727. End Sub
  728. Sub DBPush2_Click ()
  729.   frmAutoDisable.Show 1
  730. End Sub
  731. Sub DBPush220_Click ()
  732.   DBPush220.ForceDown = Not DBPush220.ForceDown
  733.   DBPush22.Style = (DBPush22.Style And 1) + IIf(DBPush220.ForceDown, 2, 0)
  734. End Sub
  735. Sub DBPush221_Click ()
  736.   DBPush221.ForceDown = Not DBPush221.ForceDown
  737.   DBPush22.Style = (DBPush22.Style And 2) + IIf(DBPush221.ForceDown, 1, 0)
  738. End Sub
  739. Sub DBPush222_Click ()
  740.   DBPush22.OutlineSize = (DBPush22.OutlineSize + 1) Mod 4
  741. End Sub
  742. Sub DBPush223_Click ()
  743.   DBPush22.BevelWidth = (DBPush22.BevelWidth + 1) Mod 5
  744. End Sub
  745. Sub DBPush320_Click ()
  746.   DBPush32.PredefPicture = 1 + DBPush32.PredefPicture Mod 5
  747. End Sub
  748. Sub DBPush321_Click ()
  749.   DBPush32.Enabled = DBPush321.ForceDown
  750.   DBPush321.ForceDown = Not DBPush321.ForceDown
  751. End Sub
  752.